home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / othernet / mausnet / dot223 / utility / dotter.lst < prev    next >
File List  |  1994-02-14  |  2KB  |  95 lines
  1. ' dotter. Konvertiert The_Dot Bretter in Testfiles unter
  2. ' sortierung nach Betreff
  3. ' Hans- Joachim Krahe @b2
  4. ' Version 1.0001 vom 11.2.1994
  5. DIM t$(1000),text$(1000),s$(1000),n$(1000),so%(1000)
  6. f$="E:\terminal\the_dot\messages\*.dbs"
  7. CLS
  8. PRINT "Bitte w„hlen Sie das The_Dot-Brett aus, welches umgewandelt werden soll"
  9. FILESELECT f$,"Eingabebrett",f$
  10. IF NOT EXIST(f$)
  11.   GOTO raus
  12. ENDIF
  13. OPEN "i",#1,f$
  14. f$=LEFT$(f$,LEN(f$)-3)+"idx"
  15. OPEN "i",#2,f$
  16. f$=LEFT$(f$,LEN(f$)-3)+"txt"
  17. ' FILESELECT f$,"Ausgabefile",f$
  18. PRINT "Daten werden geladen"
  19. OPEN "o",#3,f$
  20. IF LOF(#1)<10000
  21.   a$=INPUT$(LOF(#1),#1)
  22. ELSE
  23.   loa%=LOF(#1)-10000
  24.   a$=INPUT$(10000,#1)
  25. ENDIF
  26. '                                hole daten
  27. REPEAT
  28.   REPEAT
  29.     i1%=INSTR(a$,CHR$(1))
  30.     i2%=INSTR(a$,CHR$(2))
  31.     IF i1%>0 AND i2%>1 AND i2%>i1%
  32.       INC t%
  33.       t$(t%)=MID$(a$,i1%+3,i2%-i1%-5)
  34.       a$=RIGHT$(a$,LEN(a$)-i2%)
  35.     ELSE IF loa%=0
  36.       a$=""
  37.     ENDIF
  38.     IF loa%+LEN(a$)<=10000 AND loa%>0
  39.       a$=a$+INPUT$(loa%,#1)
  40.       loa%=0
  41.     ELSE IF loa%+LEN(a$)>10000
  42.       loa%=loa%+LEN(a$)-10000
  43.       a$=a$+INPUT$(10000-LEN(a$),#1)
  44.     ENDIF
  45.   UNTIL a$="" AND loa%=0
  46. UNTIL EOF(#1)
  47. '                               hole index
  48. FOR i%=1 TO t%
  49.   li%=358          !            li%= l„nge index
  50.   s$(i%)=INPUT$(li%,#2)
  51.   in%=INSTR(11,s$(i%),CHR$(0))
  52.   bem$=MID$(s$(i%),143,30)
  53.   WHILE ASC(RIGHT$(bem$,1))<33 AND bem$>""
  54.     bem$=LEFT$(bem$,LEN(bem$)-1)
  55.   WEND
  56.   IF UPPER$(LEFT$(bem$,4))="RE: "
  57.     bem$=RIGHT$(bem$,LEN(bem$)-4)
  58.   ENDIF
  59.   nam$=MID$(s$(i%),11,in%-9)
  60.   t$(i%)="Betreff: "+bem$+CHR$(13)+"       "+t$(i%)
  61.   '  PRINT LEFT$(t$(i%),20)
  62.   '  PRINT nam$
  63.   '  PRINT i%'MID$(s$(i%),143,30)
  64.   PRINT MID$(s$(i%),11,in%-11)
  65.   '  PRINT
  66. NEXT i%
  67. CLOSE #1
  68. CLOSE #2
  69. PRINT "Daten werden sortiert"
  70. QSORT t$(),t%
  71. PRINT "Daten werden gespeichert"
  72. FOR i%=1 TO t%
  73.   PRINT #3;t$(i%)
  74.   PRINT #3
  75.   PRINT #3,"+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +"
  76.   PRINT #3,"==============================================================="
  77.   PRINT #3,"+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +"
  78.   PRINT #3
  79. NEXT i%
  80. CLOSE #3
  81. PRINT
  82. PRINT "Das erzeugte File wurde unter ";f$;" abgespeichert!"
  83. PRINT
  84. PRINT "Ready, Eddi!"
  85. PRINT
  86. raus:
  87. PRINT "Weiter mit Return, raus mit sonstwas"
  88. REPEAT
  89.   a$=INKEY$
  90. UNTIL a$>""
  91. IF a$=CHR$(13)
  92.   RUN
  93. ENDIF
  94. END
  95.